home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / lang / sofa.lha / sofa / developer / script / make_exml.rexx < prev    next >
OS/2 REXX Batch file  |  1999-10-10  |  1KB  |  50 lines
  1. /* make_exml.rexx -- Create exml.lha archive
  2.  *
  3.  * $VER: make_exml_lha.rexx 1.2 (10.10.99)
  4.  */
  5. AddLib('rexxsupport.library', 0, -30, 0)
  6. Address Command
  7.  
  8. sofa_path    = 'sofa:'
  9. archive_path = 'sofa:archive/'
  10. library_path = 'sofa:library/'
  11. exml_lib     = 'sofa:lib/exml.lib'
  12. exml_path    = 'sofa:library/exml/'
  13.  
  14. exml_lha = 't:exml.lha'
  15. temp_lib = 't:exml.lib'
  16. temp_file = 't:make_exml_lha.tmp'
  17.  
  18. old_path = Pragma('Directory', exml_path || 'library')
  19.  
  20. /* clean exml directories from useless files:
  21.  * - put aside exml.lib (because it will be deleted by smake)
  22.  * - remove compiler junk files
  23.  * - call "smake sterile" on all directories with a smakefile
  24.  * - restore exml.lib */
  25. Say 'clean exml directories'
  26. 'copy quiet clone ' || exml_lib || ' ' || temp_lib
  27. 'list ' || exml_path || ' pat=#?.(o|lnk) all lformat="delete *"%p%n*"" >' || temp_file
  28. 'execute ' || temp_file
  29. 'list ' || exml_path || ' pat=smakefile all lformat="cd %p*Nsmake sterile" >' || temp_file
  30. 'execute ' || temp_file
  31. 'copy quiet clone ' || temp_lib || ' ' || exml_lib
  32. call Delete(temp_lib)
  33.  
  34. /* Make exml archive */
  35. Say 'make exml.lha'
  36. Say
  37. old_path = Pragma('Directory', library_path)
  38. 'lha -xadern a "' || exml_lha || '" exml'
  39. Say
  40. 'list nohead "' || exml_lha || '"'
  41. 'copy quiet clone "' || exml_lha || '" "' || archive_path || 'exml.lha"'
  42.  
  43. /* Clean up */
  44. call Delete(exml_lha)
  45. call Delete(temp_file)
  46. Pragma('Directory', old_path)
  47.  
  48. exit 0
  49.  
  50.